home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / daten / adm / termintool / termintool.lha / prefs / Termine < prev    next >
Text File  |  1995-10-04  |  4KB  |  231 lines
  1. .K Version,Editor
  2. .Bra {
  3. .Ket }
  4. .Def Version="$VER: Termine V 0.9 (2.10.95) © Bernd Stange" 
  5. .Def Editor=ED
  6.  
  7. ;-----------------------------------------------
  8.  
  9.  
  10. if not exists c:Askreq
  11. set dummy `requestchoice "Fehler:" "Bitte zuerst das Zusatzprogramm Askreq in das C:-Verzeichnis kopieren !" "OK"`
  12. quit
  13. endif
  14.  
  15. If exists "ENV:ADMscPrefs"
  16. setenv PfadVariable "ENV"
  17. else
  18. setenv PfadVariable "s"
  19. endif
  20. if not exists $pfadvariable:ADMscPrefs
  21. skip fehler
  22. endif
  23. if $pfadvariable:ADMscPrefs/PfadADMGebliste eq "nicht gesetzt"
  24. skip fehler
  25. endif
  26.  
  27. if not exists env:datum
  28. setenv "datum" "nicht gesetzt!"
  29. endif
  30. if not exists env:termintext
  31. setenv "termintext" "nicht gesetzt!"
  32. endif
  33.  
  34. lab start
  35.  
  36. set result `requestchoice "{Version}" "Aktuellen Termin aufnehmen:*n *nDatum: ====> $datum *nTermintext: ====> $Termintext*n*nSetzen: Termine:*n/~~~~~~|            |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|" "Datum|Termintext|Notieren|zeigen|editieren|Ende" `
  37.  
  38. if $result eq "1"
  39. setenv datum `askreq H "Datumeingabe: {Version}" M "Bitte Termindatum eingeben !|   Format: TT.MM" S`
  40. skip datum
  41. lab datumOK
  42. if "$termintext" eq "nicht gesetzt!"
  43. setenv Termintext `askreq H "Termintexteingabe: {Version}" M "                Bitte Termintext eingeben !                " S `
  44. endif
  45. skip start back
  46. endif
  47.  
  48. if $result eq "2"
  49. setenv Termintext `askreq H "Termintexteingabe: {Version}" M "                Bitte Termintext eingeben !                " S `
  50. if "$Datum" eq "nicht gesetzt!"
  51. setenv datum `askreq H "Datumeingabe: {Version}" M "Bitte Termindatum eingeben !|   Format: TT.MM" S`
  52. skip Datum
  53. lab datumOK
  54. endif
  55. skip start back
  56. endif
  57.  
  58. if $result eq "3"
  59. setenv >NIL: Datei `type $pfadvariable:ADMscPrefs/PfadADMGebliste`
  60. If "$Termintext" eq "nicht gesetzt!"
  61. set dummy `requestchoice "Fehler:" "Noch keinen Termintext gesetzt !" "OK"`
  62. skip start back
  63. else
  64. echo "$tag" "$mon" "$jahr" "Termin:" "-" " $Termintext" "!" >>$Datei
  65. ;setenv "termintext" "nicht gesetzt!"
  66. skip start back
  67. endif
  68. endif
  69.  
  70. if $result eq "4"
  71. setenv Datei `type $pfadvariable:ADMscPrefs/PfadADMGebliste`
  72. search "$datei" "Termin" nonum >T:.Alle
  73. multiview T:.Alle
  74. delete >NIL: T:.Alle
  75. skip start back
  76. endif
  77.  
  78. if $result eq "5"
  79. setenv Datei `type $pfadvariable:ADMscPrefs/PfadADMGebliste`
  80. stack 30000
  81. {editor} "$datei"
  82. skip start back
  83. endif
  84.  
  85. if $result eq "0"
  86. lab ende
  87. unsetenv >NIL: datum
  88. unsetenv >NIL: Termintext
  89. unsetenv >NIL: tag
  90. unsetenv >NIL: mon
  91. unsetenv >NIL: jahr
  92. unsetenv >NIL: PfadVariable
  93. unsetenv >NIL: Datei
  94. unsetenv >NIL: ALLE
  95. quit
  96. endif
  97.  
  98.  
  99.  
  100. lab Datum
  101. setenv tag `echo $datum first 1 len 2`
  102. if "$tag" eq "1."
  103. setenv Tag "01"
  104. skip mon
  105. endif
  106. if "$tag" eq "2."
  107. setenv Tag "02"
  108. skip mon
  109. endif
  110. if "$tag" eq "3."
  111. setenv Tag "03"
  112. skip mon
  113. endif
  114. if "$tag" eq "4."
  115. setenv Tag "04"
  116. skip mon
  117. endif
  118. if "$tag" eq "5."
  119. setenv Tag "05"
  120. skip mon
  121. endif
  122. if "$tag" eq "6."
  123. setenv Tag "06"
  124. skip mon
  125. endif
  126. if "$tag" eq "7."
  127. setenv Tag "07"
  128. skip mon
  129. endif
  130. if "$tag" eq "8."
  131. setenv Tag "08"
  132. skip mon
  133. endif
  134. if "$tag" eq "9."
  135. setenv Tag "09"
  136. skip mon
  137. endif
  138.  
  139. lab mon
  140. setenv mon `echo $datum first 4 len 2`
  141. if "$mon" eq "."
  142. setenv mon `echo $datum first 3 len 1`
  143. endif
  144. if "$mon" eq "1"
  145. setenv mon "01"
  146. skip jahr
  147. endif
  148. if "$mon" eq "2"
  149. setenv mon "02"
  150. skip jahr
  151. endif
  152. if "$mon" eq "3"
  153. setenv mon "03"
  154. skip jahr
  155. endif
  156. if "$mon" eq "4"
  157. setenv mon "04"
  158. skip jahr
  159. endif
  160. if "$mon" eq "5"
  161. setenv mon "05"
  162. skip jahr
  163. endif
  164. if "$mon" eq "6"
  165. setenv mon "06"
  166. skip jahr
  167. endif
  168. if "$mon" eq "7"
  169. setenv mon "07"
  170. skip jahr
  171. endif
  172. if "$mon" eq "8"
  173. setenv mon "08"
  174. skip jahr
  175. endif
  176. if "$mon" eq "9"
  177. setenv mon "09"
  178. skip jahr
  179. endif
  180. skip jahr
  181. endif
  182. lab jahr
  183. if "$mon" eq "1."
  184. setenv mon "01"
  185. skip jahr
  186. endif
  187. if "$mon" eq "2."
  188. setenv mon "02"
  189. skip jahr
  190. endif
  191. if "$mon" eq "3."
  192. setenv mon "03"
  193. skip jahr
  194. endif
  195. if "$mon" eq "4."
  196. setenv mon "04"
  197. skip jahr
  198. endif
  199. if "$mon" eq "5."
  200. setenv mon "05"
  201. skip jahr
  202. endif
  203. if "$mon" eq "6."
  204. setenv mon "06"
  205. skip jahr
  206. endif
  207. if "$mon" eq "7."
  208. setenv mon "07"
  209. skip jahr
  210. endif
  211. if "$mon" eq "8."
  212. setenv mon "08"
  213. skip jahr
  214. endif
  215. if "$mon" eq "9."
  216. setenv mon "09"
  217. skip jahr
  218. endif
  219. lab jahr
  220. setenv Jahr `date`
  221. setenv jahr `echo "$jahr" len 12`
  222. setenv jahr `echo "$jahr" first 1 len 2`
  223. endif
  224. setenv Datum "$tag.$mon.$jahr"
  225. skip DatumOK back
  226.  
  227.  
  228. lab fehler
  229. set dummy `requestchoice "Fehler:" "Bitte erst mit ADMscPrefs die Pfade einstellen !" "OK"`
  230. skip ende back
  231. endif